home *** CD-ROM | disk | FTP | other *** search
/ Interactive Media Design Review 1999 / Interactive Media Design Review 1999.iso / pc / Demos / Herois / Codigo.Cst / 00039_UniversosVaiFilme.ls < prev    next >
Encoding:
Text File  |  1999-03-19  |  738 b   |  37 lines
  1. property frameFilme
  2.  
  3. on getBehaivorDescription
  4.   return "Pause na saida do frame, chamando #idleSprite para todos sprites durante #idle"
  5. end
  6.  
  7. on getPropertyDescriptionList
  8.   set p_list = [ ┬¼
  9.     #frameFilme: [ #comment:   "Frame do filme", ┬¼
  10.                     #format:   #string, ┬¼
  11.                    #default:   "" ] ┬¼
  12.     ]
  13.   return p_list
  14. end
  15.  
  16. on mouseUp
  17.   cursor 4
  18.   
  19.   global gPronde, gDonde
  20.   set gDonde = 1
  21.   set gPronde = 0
  22.   sendAllSprites(#cleanSprite)
  23.   
  24.   puppetSound 1,0
  25.   puppetSound 2,0
  26.   
  27.   global gVisibilidade
  28.   set gVisibilidade = []
  29.   repeat with i = 97 to 120
  30.     add gVisibilidade, the visibility of sprite i
  31.     set the visibility of sprite i to false
  32.   end repeat
  33.   
  34.   go frame frameFilme
  35.   
  36.   cursor -1 
  37. end